use bam_ches_merged.dta 


 
 ///Fig 2
 twoway (sca lrecon_rank lrecon_bam_rank if lrecon_rank_diff < 18) (scatter lrecon_rank lrecon_bam_rank if lrecon_rank_diff > 19, mlabel(party_n)mlabsize(vsmall) col(red) ytitle(Rank order of Econ Left-Right: CHES) ylabel(, angle(horizontal)) xtitle(Rank of Econ Left-Right: BAM) legend(label(1 "Difference in rank < 2 std dev")  label(2  "Difference in rank > 2 std dev")))
 
graph export "comparison of econ left-right rank orders.pdf" 
 
 
//Fig 3 
twoway (sca galtan_rank galtan_bam_rank if galtan_rank_diff < 14) (scatter galtan_rank galtan_bam_rank if galtan_rank_diff > 15, mlabel(party_n)mlabsize(vsmall) col(red) ytitle(Rank order of gal-tan: CHES) ylabel(, angle(horizontal)) xtitle(Rank of gal-tan: BAM) legend(label(1 "Difference in rank < 2 std dev")  label(2  "Difference in rank > 2 std dev")))

graph export "comparison of gal-tan rank orders.pdf"
 
//Fig 4 
twoway (sca eu_position_rank eu_bam_rank if eu_rank_diff < 25 ) (scatter eu_position_rank eu_bam_rank if eu_rank_diff > 26, mlabel(party_n) mlabsize(vsmall) col(red) ytitle(Rank order of EU Position: CHES) ylabel(, angle(horizontal)) xtitle(Rank of EU Position: BAM) legend(label(1 "Difference in rank < 2 std dev")  label(2  "Difference in rank > 2 std dev")))

graph export "comparison of EU rank orders.pdf"



